home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / lang / sofa.lha / sofa / developer / script / make_sofa.rexx < prev    next >
OS/2 REXX Batch file  |  2000-04-03  |  2KB  |  71 lines
  1. /* make_sofa.rexx -- Make Readme, release version and backup of sofa.lha.
  2.  * $VER: make_sofa.rexx 1.2 (3.4.99) */
  3.  
  4. failat 1
  5.  
  6. sofa_version = '1.1'
  7. Parse Var sofa_version version '.' release
  8.  
  9. list_file      = 't:lha_list_' || Pragma('ID') || '.tmp'
  10. temp_lha       = 'tt:sofa_temporary.lha'
  11. readme         = 'sofa:Readme'
  12. sofa_readme    = 'release:sofa.readme'
  13. sofa_lha       = 'release:sofa.lha'
  14. sofa_xy_lha    = 'release:backup/sofa_' || version || release || '.lha'
  15. sofa_xy_readme = 'release:backup/sofa_' || version || release || '.readme'
  16. sofa_other_lha = 'sofa:archive/other.lha'
  17. sofa_dev_lha   = 'sofa:archive/developer.lha'
  18.  
  19. Address Command
  20. old_path = Pragma('Directory', 'sofa:developer/script')
  21.  
  22. /* Some cleanup */
  23. 'delete quiet sofa:library/sofa/source/#?.o'
  24.  
  25. /* Make Readme */
  26. Say 'make ' || readme
  27. 'echo >' || readme || ' "TITLE*N*N  Sofa - SmallEiffel obviously fits Amiga*N*NVERSION*N*N  ' || sofa_version || '*N"'
  28. 'type >>' || readme || ' readme.body'
  29.  
  30. /* Make sofa.readme */
  31. Say 'make ' || sofa_readme
  32. 'type >' || sofa_readme || ' readme.aminet'
  33. 'echo >>' || sofa_readme || ' "Version:  ' || sofa_version || '*N"'
  34. 'type >>' || sofa_readme || ' ' || readme
  35. 'copy quiet clone ' || sofa_readme || ' ' || sofa_xy_readme
  36.  
  37. Say
  38.  
  39. /* Rebuild SmallEiffel/install */
  40. Say 'make SmallEiffel/install'
  41. Say
  42. Pragma('Directory', 'sofa:SmallEiffel')
  43. 'compile -clean -boost -no_split -no_gc install'
  44. 'delete quiet install.(id|make|lnk|o)'
  45.  
  46.  
  47. /* Make sofa archive */
  48. Say 'make ' || sofa_lha
  49. Say
  50. Pragma('Directory', 'sofa:')
  51.  
  52. 'echo  >' || list_file || ' sofa.info'
  53. 'list  >>' || list_file || ' lformat=sofa/%p%n #?.info readme welcome.html install'
  54. 'list  >>' || list_file || ' all lformat=sofa/%p%n developer lib library manual SmallEiffel tool'
  55.  
  56. Pragma('Directory', 'sofa:/')
  57. 'lha -xadern a "' || temp_lha || '" @' || list_file
  58.  
  59. Say
  60.  
  61. /* copy archives */
  62. Say 'copy archives'
  63. 'copy quiet clone "' || temp_lha || '" "' || sofa_lha || '"'
  64. 'list nohead "' || sofa_lha || '"' /* ' "' || sofa_dev_lha || '" "' || sofa_other_lha || '"' */
  65. 'copy quiet clone "' || temp_lha || '" "' || sofa_lha || '"'
  66. 'copy quiet clone "' || temp_lha || '" "' || sofa_xy_lha || '"'
  67. 'delete quiet "' || temp_lha || '"'
  68.  
  69. Pragma('Directory', old_path)
  70.  
  71.